   1 .
   2 .KENO II 2.0
   3 .(C)1981 MSK
   4 print "PROGRAM DISPLAYS KENO CARDAND CASH REMAINING. YOU   PICK 1 to 15 NUMBERS USINGHAND CONTROLLER.",
   5 print " NUMBER OFPICKS IS TALLIED next to  GO. if YOU PICK 1 to 14   NUMBERS, PICK GO to START.
   6 print "THE COMPUTER PICKS AND    DISPLAYS 20 NUMBERS AND   CALCULATES PAYOFF.",
   7 print " to SEE PAYOFF TABLE PUSH 'div '",;if KP="div "goto 2000
   8 print 
   9 input "STAKE"C
  10 T=0;clear ;gosub 900;C=C-1;CY=-33;CX=43;print "$",#5,C,
  20 gosub 800;if N<81gosub 700;if T<15goto 20
  30 gosub 600;gosub 500;if H=0B=0;goto 40
  35 B=@(R+H-1);C=C+B
  40 CX=-59;print "OF",#3,T,,"GOT",H,,"PAYS$",#5,B,
  45 if C<1STOP
  50 if TR(1)goto 10
  60 goto 50
 500 R=0;if T=1return 
 510 for S=1to T-1;R=R+S;next S;return 
 600 H=0;for U=1to 20;V=rnd (80)-1;V=Vdiv 10;W=RM;X=-73+Wmul 16;Y=39-Vmul 9;if PX(X-6,Y+4)=0goto 680
 610 if PX(X,Y)=0U=U-1;goto 690
 620 H=H+1
 630 goto 685
 680 if PX(X,Y)U=U-1;goto 690
 685 box X,Y,11,7,3
 690 next U;return 
 700 if PX(X-6,Y+4)T=T+1;goto 720
 710 T=T-1
 720 CY=-33;CX=-53;print #2,T,;return 
 800 X=-73;Y=39;box X,Y,13,9,3
 810 I=X;J=Y;X=X+JX(1)mul 16;Y=Y+JY(1)mul 9;X=X+16mul (X<-75)-16mul (X>75);Y=Y+9mul (Y<-25)-9mul (Y>40)
 815 if X=-73if Y=-24if JY(1)=-1Y=-33
 820 box I,J,13,9,3;box X,Y,13,9,3;if TR(1)=0goto 810
 830 N=(X+73)div 16+1-(Y-39)div 9mul 10;return 
 900 for Y=0to 7;CY=39-Ymul 9;for X=1to 10;CX=-91+Xmul 16;print #2,X+Ymul 10,;next X;next Y;CY=-33;CX=-75;print "GO",;return 
2000 print ;for T=1to 15;gosub 500;for Q=1to T;#3,"PICK",T," GET",Q," WIN $",#5,@(R+Q-1);next Q;next T;goto 9
3000 :print ;list ;for A=0to 119;print "@(",#1,A,")=",@(A);next A;print ":return ;NT=1";:return ;NT=1
@(0)=3
@(1)=0
@(2)=12
@(3)=0
@(4)=1
@(5)=42
@(6)=0
@(7)=1
@(8)=4
@(9)=113
@(10)=0
@(11)=0
@(12)=1
@(13)=9
@(14)=820
@(15)=0
@(16)=0
@(17)=1
@(18)=3
@(19)=90
@(20)=1800
@(21)=0
@(22)=0
@(23)=0
@(24)=0
@(25)=20
@(26)=410
@(27)=8100
@(28)=0
@(29)=0
@(30)=0
@(31)=0
@(32)=9
@(33)=90
@(34)=1650
@(35)=18000
@(36)=0
@(37)=0
@(38)=0
@(39)=0
@(40)=3
@(41)=45
@(42)=335
@(43)=4700
@(44)=18500
@(45)=0
@(46)=0
@(47)=0
@(48)=0
@(49)=2
@(50)=20
@(51)=142
@(52)=1000
@(53)=4500
@(54)=19000
@(55)=0
@(56)=0
@(57)=0
@(58)=0
@(59)=0
@(60)=10
@(61)=75
@(62)=380
@(63)=2000
@(64)=12500
@(65)=19500
@(66)=0
@(67)=0
@(68)=0
@(69)=0
@(70)=0
@(71)=6
@(72)=28
@(73)=200
@(74)=850
@(75)=2400
@(76)=13000
@(77)=25000
@(78)=0
@(79)=0
@(80)=0
@(81)=0
@(82)=0
@(83)=2
@(84)=16
@(85)=78
@(86)=700
@(87)=3600
@(88)=9000
@(89)=25000
@(90)=25000
@(91)=0
@(92)=0
@(93)=0
@(94)=0
@(95)=0
@(96)=3
@(97)=8
@(98)=32
@(99)=300
@(100)=800
@(101)=2500
@(102)=12000
@(103)=25000
@(104)=25000
@(105)=0
@(106)=0
@(107)=0
@(108)=0
@(109)=0
@(110)=2
@(111)=8
@(112)=21
@(113)=75
@(114)=240
@(115)=2400
@(116)=8000
@(117)=25000
@(118)=25000
@(119)=25000
:return ;NT=1